home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / cboot.d64 / obj_save.l < prev    next >
Text File  |  2009-01-23  |  1KB  |  59 lines
  1. 0010 // EMULATE OBJ_SAVE FUNCTION
  2. 0020 // (C)1984  05/26/84
  3. 0030 //
  4. 0040 // WALLACE LOUIE
  5. 0050 // 3407  AVENUE 'S'
  6. 0060 // BROOKLYN, N.Y. 11234
  7. 0070 //
  8. 0080 //
  9. 0090 PROC OBJ_SAVE(FILENAME$,START'ADDR,END'ADDR,DEVICE) CLOSED
  10. 0100 START'HI:=INT(START'ADDR/256)
  11. 0110 START'LO:=START'ADDR-START'HI*256
  12. 0120 END'ADDR:=END'ADDR+1
  13. 0130 END'HI:=INT(END'ADDR/256)
  14. 0140 END'LO:=END'ADDR-END'HI*256
  15. 0150 FOR I:=1 TO LEN(FILENAME$) DO
  16. 0160 POKE 827+I,ORD(FILENAME$(I))
  17. 0170 ENDFOR I
  18. 0180 POKE 850,169 //   LDA
  19. 0190 POKE 851,DEVICE
  20. 0200 POKE 852,170 //   TAX
  21. 0210 POKE 853,160 //   LDY #$FF
  22. 0220 POKE 854,255
  23. 0230 POKE 855,32 //    JSR $FFBA
  24. 0240 POKE 856,186
  25. 0250 POKE 857,255
  26. 0260 POKE 858,169 //   LDA
  27. 0270 POKE 859,LEN(FILENAME$)
  28. 0280 POKE 860,162 //   LDX #$3C
  29. 0290 POKE 861,60
  30. 0300 POKE 862,160 //   LDY #$03
  31. 0310 POKE 863,3
  32. 0320 POKE 864,32 //    JSR $FFBD
  33. 0330 POKE 865,189
  34. 0340 POKE 866,255
  35. 0350 POKE 867,32 //    JSR $FFC0
  36. 0360 POKE 868,192
  37. 0370 POKE 869,255
  38. 0380 POKE 870,169 //   LDA END'LO
  39. 0390 POKE 871,END'LO
  40. 0400 POKE 872,170 //   TAX
  41. 0410 POKE 873,169 //   LDA END'HI
  42. 0420 POKE 874,END'HI
  43. 0430 POKE 875,168 //   TAY
  44. 0440 POKE 876,169 //   LDA #$FB
  45. 0450 POKE 877,251
  46. 0460 POKE 878,32 //    JSR $FFD8
  47. 0470 POKE 879,216
  48. 0480 POKE 880,255
  49. 0490 POKE 881,169 //   LDA
  50. 0500 POKE 882,DEVICE
  51. 0510 POKE 883,32 //    JSR $FFC3
  52. 0520 POKE 884,195
  53. 0530 POKE 885,255
  54. 0540 POKE 886,96 //    RTS
  55. 0550 POKE 251,START'LO
  56. 0560 POKE 252,START'HI
  57. 0570 SYS 850
  58. 0580 ENDPROC OBJ_SAVE
  59.